home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dbase
/
techs.zip
/
TECH8.ZIP
/
CMDUPDAT.PRG
next >
Wrap
Text File
|
1985-11-01
|
775b
|
32 lines
* Program...: Cmdupdat.PRG
* Author....: Luis Castro
* Date......: December 1, 1985
* Version...: dBASE II, any version
* Note(s)...: This program UPDATEs one database file from
* another database file in a way that is very
* similar to the dBASE II UPDATE command.
*
SET TALK OFF
USE Mainfile
SELECT SECONDARY
USE Fromfile
SELECT PRIMARY
DO WHILE .NOT. EOF
STORE key TO mkey
SELECT SECONDARY
DO WHILE key = mkey .AND. .NOT. EOF
SELECT PRIMARY
* ---Field1 is being added to.
REPLACE Field1 WITH Field1 + S.Field1
* ---Field2 is being REPLACEd.
REPLACE Field2 WITH S.Field2
SELECT SECONDARY
SKIP
ENDDO
SELECT PRIMARY
SKIP
ENDDO
CLEAR
RETURN
* EOP Cmdupdat.PRG